home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Tools - Objects / MacApp / Unsupported Samples / CRC Cards / Source / UDesignDocument.p < prev    next >
Encoding:
Text File  |  1990-07-11  |  4.7 KB  |  122 lines  |  [TEXT/MPS ]
  1. Unit UDesignDocument;
  2.  
  3. INTERFACE
  4.  
  5. USES
  6.     UMacApp,
  7.     ToolUtils,
  8.     Resources,
  9.     Packages,
  10.     UPrinting,
  11.     UTEView,
  12.     UDialog,
  13.     UGridView,
  14.     UCRCCards,
  15.     UItem,
  16.     UCard,
  17.     UMyViews,
  18.     UMyCommands,
  19.     UTextHandler;
  20.  
  21. TYPE
  22.     TDesignDocument = OBJECT(TDocument)
  23.         fCurrentCard: TCard;
  24.         fCardList: TList;
  25.         fDesignView: TDesignView;
  26.         fTextHandler: TTextHandler;
  27.         fUnitName : Str255;
  28.         fMPWCodeView,
  29.         fMPWIncCodeView: TMyTEView;
  30.  
  31.         PROCEDURE TDesignDocument.IDesignDocument;
  32.         PROCEDURE TDesignDocument.SetCurrentCard(theCard: TCard);
  33.         FUNCTION TDesignDocument.GetCurrentCard: TCard;
  34.         PROCEDURE TDesignDocument.SetCardList(theCardList: TList);
  35.         FUNCTION TDesignDocument.GetCardList: TList;
  36.         FUNCTION TDesignDocument.GetNumCardsStr: str255;
  37.         
  38.         FUNCTION TDesignDocument.GetDesignView: TDesignView;
  39.         PROCEDURE TDesignDocument.SetDesignView(aDesignView: TDesignView);
  40.         FUNCTION TDesignDocument.GetTextHandler: TTextHandler;
  41.         PROCEDURE TDesignDocument.SetTextHandler(theTextHandler: TTextHandler);
  42.         FUNCTION TDesignDocument.GetMPWCodeView: TMyTEView;
  43.         PROCEDURE TDesignDocument.SetMPWCodeView(theMPWCodeView: TMyTEView);
  44.         FUNCTION TDesignDocument.GetMPWIncCodeView: TMyTEView;
  45.         PROCEDURE TDesignDocument.SetMPWIncCodeView(theMPWIncCodeView: TMyTEView);
  46.         FUNCTION TDesignDocument.GetUnitName:Str255;
  47.         PROCEDURE TDesignDocument.SetUnitName(theUnitName: Str255);
  48.         PROCEDURE TDesignDocument.SetTitle(aTitle: Str255); OVERRIDE;
  49.         
  50.         PROCEDURE TDesignDocument.AddCard(aCard: TCard);
  51.         PROCEDURE TDesignDocument.AddCardAtIndex(aCard: TCard; theIndex: ArrayIndex);
  52.         PROCEDURE TDesignDocument.AddCardToObjectLists(theCardToAdd: TCard);
  53.         PROCEDURE TDesignDocument.RemoveCardFromObjectLists(theCardToRemove: TCard);
  54.         PROCEDURE TDesignDocument.ChangeNameInObjectLists(theOldName, theNewName: Str255);
  55.         PROCEDURE TDesignDocument.DeleteCard(aCard: TCard);
  56.         FUNCTION TDesignDocument.GetNumCards: ArrayIndex;
  57.         FUNCTION TDesignDocument.GetIndexOfCard(theCard: TCard): ArrayIndex;
  58.         PROCEDURE TDesignDocument.DoMakeViews(forPrinting: BOOLEAN); OVERRIDE;
  59.         PROCEDURE TDesignDocument.CloseOldCodeViews;
  60.         PROCEDURE TDesignDocument.OpenNewCodeViews;
  61.         PROCEDURE TDesignDocument.SelectCurrentCodeViews;
  62.         PROCEDURE TDesignDocument.WriteInterface(theTEView: TMyTEView);
  63.         PROCEDURE TDesignDocument.WriteImplementation(theTEView: TMyTEView);
  64.         FUNCTION TDesignDocument.GetUnitNameFromUser: BOOLEAN;
  65.         PROCEDURE TDesignDocument.WriteCode;
  66.         PROCEDURE TDesignDocument.FreeData; OVERRIDE;
  67.         PROCEDURE TDesignDocument.Free; OVERRIDE;
  68.         PROCEDURE TDesignDocument.DoNeedDiskSpace(VAR dataForkBytes, rsrcForkBytes: LongInt); 
  69.                 OVERRIDE;
  70.         PROCEDURE TDesignDocument.DoWrite(aRefNum: INTEGER; makingCopy: BOOLEAN); OVERRIDE;
  71.         PROCEDURE TDesignDocument.DoRead(aRefNum: INTEGER; rsrcExists, forPrinting: BOOLEAN); 
  72.                 OVERRIDE;
  73.         FUNCTION  TDesignDocument.DoMenuCommand(aCmdNumber: CmdNumber):TCommand;OVERRIDE;
  74.         PROCEDURE TDesignDocument.DoSetupMenus; OVERRIDE;
  75.  
  76.         PROCEDURE TDesignDocument.Fields(PROCEDURE DoToField(fieldName: Str255; fieldAddr: Ptr; 
  77.                 fieldType: INTEGER)); OVERRIDE;
  78.     END;
  79.     
  80.     TMPWTextDocument = OBJECT(TDocument)
  81.         fDocText: Handle;
  82.         fTEView:    TMyTEView;
  83.         fDesignDocument: TDesignDocument;
  84.  
  85.         FUNCTION TMPWTextDocument.GetDocText: Handle;
  86.         PROCEDURE TMPWTextDocument.SetDocText(theHandle: Handle);
  87.         FUNCTION TMPWTextDocument.GetTEView: TMyTEView;
  88.         PROCEDURE TMPWTextDocument.SetTEView(theTEView: TMyTEView);
  89.         FUNCTION TMPWTextDocument.GetDesignDoc: TDesignDocument;
  90.         PROCEDURE TMPWTextDocument.SetDesignDoc(theDesignDoc: TDesignDocument);
  91.         PROCEDURE TMPWTextDocument.SetTitleNoDialog(theName: str255);
  92.         PROCEDURE TMPWTextDocument.SetTitle(aTitle: str255); OVERRIDE;
  93.         PROCEDURE TMPWTextDocument.IMPWTextDocument(theDesignDoc: TDesignDocument; theName: str255);
  94.         PROCEDURE TMPWTextDocument.DoMakeViews(forPrinting: BOOLEAN); OVERRIDE;
  95.         PROCEDURE TMPWTextDocument.DoNeedDiskSpace(VAR dataForkBytes, rsrcForkBytes: LongInt); 
  96.                 OVERRIDE;
  97.         PROCEDURE TMPWTextDocument.DoWrite(aRefNum: INTEGER; makingCopy: BOOLEAN); OVERRIDE;
  98.         PROCEDURE TMPWTextDocument.FreeData; OVERRIDE;
  99.         PROCEDURE TMPWTextDocument.Free; OVERRIDE;
  100.         PROCEDURE TMPWTextDocument.Fields(PROCEDURE DoToField(fieldName: Str255; fieldAddr: Ptr; 
  101.                 fieldType: INTEGER)); OVERRIDE;
  102.     END;
  103.  
  104.     TMPWInterfaceDocument = OBJECT(TMPWTextDocument)
  105.         
  106.         PROCEDURE TMPWInterfaceDocument.IMPWInterfaceDocument
  107.                 (theDesignDoc: TDesignDocument; theTextHandler: TTextHandler; theName: str255);
  108.         PROCEDURE TMPWInterfaceDocument.Close;    OVERRIDE;
  109.     END;
  110.     
  111.     TMPWImplementationDocument = OBJECT(TMPWTextDocument)
  112.  
  113.         PROCEDURE TMPWImplementationDocument.IMPWImplementationDocument
  114.                 (theDesignDoc: TDesignDocument; theTextHandler: TTextHandler;theName: str255);
  115.         PROCEDURE TMPWImplementationDocument.Close;    OVERRIDE;
  116.     END;
  117.  
  118. IMPLEMENTATION
  119.  
  120. {$I UDesignDocument.inc1.p}
  121.  
  122. END.